home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Logiciels PC 7
/
logiciel pc 7.iso
/
Divers
/
Prog
/
Delphi
/
ZipManager
/
DISK1
/
_SETUP.1
/
readme.txt
< prev
next >
Wrap
Text File
|
1997-08-27
|
2KB
|
76 lines
TFileDrag Component - Adds support for dropping files from explorer onto a
a Delphi form.
Version 1.02
Copyright (c) 1996, 1997 - Erik C. Nielsen ( ErikNielsen@compuserve.com )
All Rights Reserved ( Erik_Nielsen@PattersonDental.Com )
**** Changes from V 1.1 ****
1. Added the DropPoint property, which allows you to retrieve the mouse
coordinates where the files were dropped.
**** Changes from V 1.0 ****
1. Fixed several minor bugs, including not setting the enabled property
properly in the constructor.
2. Removed the separate string lists for full name, file name, and extension.
Replaced with just one list with full name. I had forgotten about the
Delphi functions ExtractFileExt and ExtractFileName which will get the
extension and name portions for you.
****************************
I. Installation
1. Copy FILEDRAG.PAS and FILEDRAG.DCR into a directory.
2. In Delphi, select Component - Install menu option.
3. Select Add... button
4. Select Browse
5. Select filedrag.pas in the directory from step 1
6. Select OK
The component library will now re-compile, and when it is finished you should
have a TFileDrag component on your System tab.
II. Using
To be able to drop files from the explorer onto your app:
1. Place a TFileDrag component on your form
2. Add a handler for the OnDrop event
3. Enable dropping by changing EnableDrop to TRUE in the property manager
or in your code somewhere.
4. Run your app and drag some files from the explorer.
Files is a string list that contains the fully qualified file name of each file
dropped on the application. Use the library functions ExtractFileName and
ExtractFileExt to get only the file name or extension.
FileCount is a read-only property that contains the number of files dropped.
See the example program for a demo of how to use this component.
III. Legal Junk
This component is provided as Free-Ware. You can use it however you like, but
you may not sell it as a Delphi component or as part of a Delphi component collection.
If you have problems/bugs/requested features, e-mail me and I will try to address them,
but I can't make any guarantees.